00100	. DEVICE XGP    
00200	.spacing 10*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "METL"
00600	.font 2 "METLI"
00700	.font 3 "METS"
00800	.font 4 "MUS[HHA,LCS]"
00900	.FONT 5 "BASL35"
01000	.!XGPLFTMAR←284
01100	.PORTION MAIN;
01200	.PLACE TEXT;
01300	.COMPACT
01400	.PAGE←66
01500	.NEXT PAGE
01600	.<< Put in a footnote. >>
01700	.
01800	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
01900	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
02000	.
02100	.FOOTSEP ← "__________";
02200	.AT "$$" ENTRY "$"
02300	.	⊂
02400	.	NEXT FOOTNOTE;
02500	.	FOOTNOTE!;
02600	.	SEND FOOT
02700	.		⊂
02800	.		BEGIN "NEXT FOOTNOTE"
02900	.		SELECT 1;
03000	.		SINGLE SPACE
03100	.		SPACING 0 MILLS
03200	.		INDENT 0,0,0;
03300	.		(FOOTNOTE! & " ");
03400	ENTRY
03500	.		END "NEXT FOOTNOTE";
03600	.		⊃;
03700	.	⊃;
03800	.
03900	.TURN ON "%↓_↑↓[&]","α"
     

00100	.CENTER
00200	%5⊂⊗⊃L[0,α%-.75]:N67XB.PLT[HHA,LCS]⊂⊗⊃%1
00300	.SKIP 4
00400	.BEGIN VERBATIM
00500	Figure 67a.  Bach, Invention No.4 in d (bars 7-45).
00600	
00700	.END
00800	.CENTER
00900	%5⊂⊗⊃L[α%-.05,α%-3.2]:N67FA.PLT[HHA,LCS]⊂⊗⊃%1
01000	.SKIP 14
01100	.FILL INDENT 6
01200	
01300		The location of the pivot (at +) is arbitrary, because the
01400	following twelve bars are based on the descending form of the ↓_d_↓
01500	scale -- which is identical with the ↓_F_↓ scale.  If it seems necessary
01600	to specify the dual function of such progressions, the following method
01700	is suggested.  The %2retrospective%1 functions in ↓_F_↓ are circled to
01800	keep them distinct from the earlier perceived ↓_d_↓ functions.
01900	.begin verbatim
02000	
02100	Figure 64b
02200	.end
02300	.CENTER
02400	%5⊂⊗⊃L[α%-.2,α%-1.5]:N67FB.PLT[HHA,LCS]⊂⊗⊃%1